home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FOURVOIC.DSK / SHAPE MAKER #3.bas < prev   
BASIC Source File  |  2014-09-09  |  2KB  |  71 lines
  1. 5  LOMEM: 30000
  2. 10  TEXT : HOME : NORMAL 
  3. 20  INPUT "HORIZONTAL SIZE (1-70) ";A$
  4. 30  IF  VAL(A$) <1  OR  VAL(A$) >70  OR  VAL(A$) < > INT( VAL(A$))  THEN 10
  5. 40 A =  VAL(A$)
  6. 50  TEXT : HOME : NORMAL 
  7. 60  INPUT "VERTICAL SIZE (1-48) ";A$
  8. 70  IF  VAL(A$) <1  OR  VAL(A$) >48  OR  VAL(A$) < > INT( VAL(A$))  THEN 50
  9. 80 B =  VAL(A$)
  10. 85  DIM A%(A,B)
  11. 90  TEXT : HOME : NORMAL 
  12. 100 C = 0:D = 0
  13. 110  FOR E = 1 TO A
  14. 120 C = C +1: IF C = 3  THEN D = D +1:C = 0
  15. 130  NEXT E
  16. 135  HGR 
  17. 140  HGR2 
  18. 145  HCOLOR= 3
  19. 150  IF A = 70  AND B = 48  THEN 200
  20. 160  IF A = 70  THEN  HPLOT 0,B *4 +1 TO 279,B *4 +1
  21. 170  IF B = 48  THEN  HPLOT A *4 +1,0 TO A *4 +1,191
  22. 180  IF A = 70  OR B = 48  THEN 200
  23. 190  HPLOT A *4 +1,0 TO A *4 +1,B *4 +1 TO 0,B *4 +1
  24. 200 E = 1:F = 1
  25. 300  HCOLOR= 3 -A%(E,F)
  26. 310  FOR G = E *4 -3 TO E *4 -2: HPLOT G,F *4 -3 TO G,F *4 -2: NEXT G: GET A$
  27. 320  HCOLOR= A%(E,F)
  28. 330  FOR G = E *4 -3 TO E *4 -2: HPLOT G,F *4 -3 TO G,F *4 -2: NEXT G
  29. 340  IF A$ = "&"  THEN 900
  30. 350  IF A$ = "I"  AND F < >1  THEN F = F -1: GOTO 300
  31. 360  IF A$ = "M"  AND F < >B  THEN F = F +1: GOTO 300
  32. 370  IF A$ = "J"  AND E < >1  THEN E = E -1: GOTO 300
  33. 380  IF A$ = "K"  AND A < >E  THEN E = E +1: GOTO 300
  34. 390  IF A$ = "F"  AND A%(E,F) = 0  THEN 500
  35. 400  IF A$ = "E"  AND A%(E,F) = 3  THEN 500
  36. 410  IF A$ = "*"  THEN 2000
  37. 420  GOTO 300
  38. 500  HCOLOR= 3 -A%(E,F):A%(E,F) = 3 -A%(E,F)
  39. 510  POKE 230,32: HPLOT E +138,F +78: POKE 230,64
  40. 520  FOR G = E *4 -4 TO E *4 -1: HPLOT G,F *4 -4 TO G,F *4 -1: NEXT G
  41. 530  GOTO 300
  42. 900  POKE  -16300,0
  43. 1000  GET A$
  44. 1010  POKE  -16302,0: POKE  -16299,0: POKE 230,64: GOTO 300
  45. 2000  POKE 24576,1: POKE 24577,0: POKE 24578,4: POKE 24579,0:QQ = 24580: SCALE= 1: ROT= 0
  46. 2010  POKE  -16300,0: POKE 230,32
  47. 2020  FOR G = 1 TO B
  48. 2030  FOR H = 1 TO A
  49. 2040  IF A%(H,G) = 3  THEN  POKE QQ,70
  50. 2050  IF A%(H,G) = 0  THEN  POKE QQ,66
  51. 2060  HCOLOR= 3 -A%(H,G): HPLOT 138 +H,78 +G
  52. 2065 QQ = QQ +1
  53. 2070  NEXT H
  54. 2080  IF D = 0  THEN 2200
  55. 2090  FOR I = 1 TO D
  56. 2100  POKE QQ,219:QQ = QQ +1
  57. 2110  NEXT I
  58. 2200  IF C = 0  THEN 2300
  59. 2210  IF C = 1  THEN  POKE QQ,91:QQ = QQ +1
  60. 2220  IF C = 2  THEN  POKE QQ,27:QQ = QQ +1
  61. 2300  POKE QQ,130:QQ = QQ +1: NEXT G
  62. 2310  POKE QQ,0
  63. 2400  TEXT : HOME : NORMAL 
  64. 2410  PRINT "SAVE ?";: GET A$: IF A$ = "N"  THEN  END 
  65. 2420  IF A$ < >"Y"  THEN 2400
  66. 2430  TEXT : HOME : NORMAL 
  67. 2440  INPUT "NAME :";A$
  68. 2450 J = (A *B) +((D +1) *B)
  69. 2460  IF C < >0  THEN J = J +1
  70. 2470 J = J +150
  71. 2480  PRINT : PRINT "<CTRL-D>BSAVE";A$;",A24576,L";J